Komputer for Alle 2001 #1/Cd 1 (black) - 2001.iso/K-CS.dcr/01004.ls

Text File | 2000-11-15 | 520 b | 25 lines

global SnapMouseY, BlinkObjekt

on new me
  cursor(0)
  set the visible of sprite 48 to 0
  set the visible of sprite 49 to 0
  set the visible of sprite 50 to 0
  set Letter to ((SnapMouseY - 3) / 20) - 10
  if Letter < 0 then
    set Letter to 0
  end if
  if Letter > 2 then
    set Letter to 2
  end if
  set the visible of sprite (Letter + 48) to 1
  set BlinkObject to 0
  set the locH of sprite 99 to 780
  set BlinkObjekt to new(script "Blink", 4, 80)
end

on exitFrame
  checkBlink(BlinkObjekt)
  go(#loop)
end